Soucty sloupcu v DBGridu

Otázka od: Lasevic, Martin

27. 4. 2004 16:58

Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v dbgridu.
Dival jsem se tady do archivu a kdysi se neco resilo trosku krkolomnym
zpusobem, ktery nemuzu pouzit
Existuje nejaky klon DBGridu, ktery tohle umi ( data taham pres TDataSet) a
nebo mi nezbyde, nez se na to vrhnout a napsat si to?

Jo, je to V D5Profi, beha pod W9x, W2k, WXPP, data jsou tahana z MSSQL 2000
pres ODBC.

Martin

======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic@ratiopharm.cz


Odpovedá: Jaroslav Uher

27. 4. 2004 17:33

On 27 Apr 2004 at 17:38, Lasevic, Martin wrote:

> Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v
> dbgridu. Dival jsem se tady do archivu a kdysi se neco resilo trosku
> krkolomnym zpusobem, ktery nemuzu pouzit Existuje nejaky klon DBGridu,
> ktery tohle umi ( data taham pres TDataSet) a nebo mi nezbyde, nez se
> na to vrhnout a napsat si to?

ja pouzivam TSMDBGrid, freeware komponenta by
Mike Shkolnik, Scalabium Software
http://www.scalabium.com

a ta ma mj. i Footer, viz

DBGrid2DrawFooterCell(Sender: TObject;
  Canvas: TCanvas; FooterCellRect: TRect; Field: TField;
  var FooterText: String; var DefaultDrawing: Boolean);
begin
 if Assigned(Field) AND (Field.FieldName = 'CENAN1') then
  begin
    DefaultDrawing := False;
    Canvas.FillRect(FooterCellRect);
    Canvas.Font.Color := clRed;
    FooterText := FormatFloat(Format_Real,Sumar_Zbozi);

    FooterCellRect.Left := FooterCellRect.Left + 2;
    FooterCellRect.Top := FooterCellRect.Top + 1;
                    // or DT_WORDBREAK or DT_EXPANDTABS or
DT_NOPREFIX or DT_VCENTER
    DrawText(Canvas.Handle, PChar(FooterText), Length(FooterText),
FooterCellRect, DT_RIGHT)
   end;
end;

kde si muzes vse zobrazit/vykreslit.
Uprimne receno, zatim jsem ale nenasel zpusob jak to (spolu s
DBGridem) vytiskout.

Jarek Uher

Odpovedá: Martin Kasman

27. 4. 2004 19:53

Musis sa k tomu datasetu pripojit cez SQL komponentu a tam zadat select
sum(moj_stlpec) into sucet from moja_tabulka a potom uz mozes pouzit polozku
sucet.

Pekny den praje www.MartinKasman.sk


----- Original Message -----
From: "Lasevic, Martin" <mlasevic@ratiopharm.cz>

> Ahojek, resim problem, jak zobrazovat soucty numerickych sloupcu v
dbgridu.
> Dival jsem se tady do archivu a kdysi se neco resilo trosku krkolomnym
> zpusobem, ktery nemuzu pouzit
> Existuje nejaky klon DBGridu, ktery tohle umi ( data taham pres TDataSet)
a
> nebo mi nezbyde, nez se na to vrhnout a napsat si to?
>
> Jo, je to V D5Profi, beha pod W9x, W2k, WXPP, data jsou tahana z MSSQL
2000
> pres ODBC.